home *** CD-ROM | disk | FTP | other *** search
/ Sacred & Secular / Sacred and Secular.iso / pc / movies / shared.dir / 05037_Script_5037 < prev    next >
Text File  |  1996-04-03  |  4KB  |  180 lines
  1. on buildList
  2.   set l = the number of lines in the labelList
  3.   
  4.   set theList = []
  5.   
  6.   repeat with i = 1 to l
  7.     add theList, line i of the labelList  
  8.   end repeat
  9.   
  10.   put thelist
  11. end
  12.  
  13. on setUpHelpList
  14.   global gHelpLabels
  15.   
  16.   set gHelplabels = [¨
  17. "Egypt", "EgyptText", "Essay", "Geo", "Greece", "GreeceText", "Guide", "Meet", ¨
  18. "Mexico", "MexicoText", "Meander", "Peru", "Photo", "PhotoText", "Main", "UK", ¨
  19. "UKText", "USA", "USAText", "PeruText", "TimeLine", "Visual"]
  20. end
  21.  
  22. on moveHelp
  23.   repeat with i = 15 to 22
  24.     put i
  25.     unloadCast
  26.     maxMem()
  27.     copyToClipBoard cast i
  28.     pasteClipBoardInto cast (5050+i)
  29.     saveMovie  
  30.   end repeat
  31.   
  32.   
  33. end
  34.  
  35. on moveHelp2
  36.   global gHelpLabels
  37.   
  38.   repeat with i = 1 to 22
  39.     put i
  40.     unloadCast
  41.     maxMem()
  42.     set the name of cast (5050+i) = getAt(gHelpLabels, i) && " help"
  43.     saveMovie  
  44.   end repeat
  45.   
  46.   
  47. end
  48.  
  49.  
  50.  
  51.  
  52. on doHelp
  53.   global gHCn, gP47
  54.   
  55.   cursor 4
  56.   
  57.   pauseQTSound
  58.   --
  59.   --
  60.   -- Note: Peru2 & Peru3 test below ARE NOT a bug, but the frames were
  61.   -- originally ordered 2, 1, 3. Left that was - DMD
  62.   --
  63.   
  64.   set hLabel = ""
  65.   
  66.   if marker(0) = label("Approaches") then set hLabel = "Main"
  67.   else if marker(0) = label("Meander") then set hLabel = "Meander"
  68.   else if marker(0) = label("Guide") then set hLabel = "Guide"
  69.   else if marker(0) = label("Cap2") then set hLabel = "Photo"
  70.   else if marker(0) = label("Meet") then set hLabel = "Meet"
  71.   else if marker(0) = label("Essay1") then set hLabel = "Essay"
  72.   else if marker(0) = label("Essay2") then set hLabel = "Essay"
  73.   else if marker(0) = label("Essay3") then set hLabel = "Essay"
  74.   else if marker(0) = label("Global") then set hLabel = "Geo"
  75.   else if marker(0) = label("Greece1") then set hLabel = "Greece"
  76.   else if marker(0) = label("Egypt1") then set hLabel = "Egypt"
  77.   else if marker(0) = label("Timeline") then set hLabel = "Timeline"
  78.   else if marker(0) = label("UK1") then set hLabel = "UK"
  79.   else if marker(0) = label("Mexico1") then set hLabel = "Mexico"
  80.   else if ¨
  81. the frame > label("visual1") and ¨
  82. the frame < (label("visual2")+2) then set hLabel = "Visual"
  83.   else if ¨
  84. the frame > label("0Text") and ¨
  85. the frame < (label("99Text")+2) then set hLabel = "PhotoText"
  86.   else if ¨
  87. the frame > label("EgyptText1") and ¨
  88. the frame < (label("EgyptText6")+2) then set hLabel = "EgyptText"
  89.   else if ¨
  90. the frame > label("GreeceText1") and ¨
  91. the frame < (label("GreeceText4")+2) then set hLabel = "GreeceText"
  92.   else if ¨
  93. the frame > label("UKText1") and ¨
  94. the frame < (label("UKText3")+2) then set hLabel = "UKText"
  95.   else if ¨
  96. the frame > label("US1") and ¨
  97. the frame < (label("US4")+2) then set hLabel = "USA"
  98.   else if ¨
  99. the frame > label("PeruText1") and ¨
  100. the frame < (label("PeruText5")+2) then set hLabel = "PeruText"
  101.   else if ¨
  102. the frame > label("Peru2") and ¨
  103. the frame < (label("Peru3")+2) then set hLabel = "Peru"
  104.   else if ¨
  105. the frame > label("Mexicotext1") and ¨
  106. the frame < (label("Mexicotext5")+2) then set hLabel = "MexicoText"
  107.   else if ¨
  108. the frame > label("UStext1") and ¨
  109. the frame < (label("UStext8")+2) then set hLabel = "USAText"
  110.   else beep
  111.   
  112.   if hLabel = "" then exit
  113.   
  114.   set gHCn = the castNum of sprite 47
  115.   set gP47 = the puppet of sprite 47
  116.   
  117.   puppetSprite 47, 1
  118.   set the type of sprite 47 = 1
  119.   set the foreColor of sprite 47 = 255
  120.   set the backColor of sprite 47 = 0
  121.   set the locV of sprite 47 = 240
  122.   set the locH of sprite 47 = 320
  123.   
  124.   set the castNum of sprite 47 = cast (hLabel && " help")
  125.   updateStage
  126.   
  127.   cursor -1
  128.   
  129.   set the mouseDownScript = "ClearHelp"
  130.   
  131.   repeat while not the mouseDown
  132.   end repeat
  133.   
  134.   startTimer
  135.   
  136. end
  137.  
  138. on clearHelp
  139.   global gHCn, gP47
  140.   
  141.   set the mouseDownScript = ""
  142.   
  143.   set the castNum of sprite 47 = gHCn
  144.   puppetSprite 47, gP47
  145.   
  146.   updateStage  
  147.   
  148.   unPauseQTSound  
  149. end
  150.  
  151. on doBiblio
  152.   go to "Biblio"
  153. end
  154.  
  155.  
  156. on doCredits
  157.   go to "Scrolling"
  158. end
  159.  
  160. on doQuit
  161.   
  162.   repeat with i = 1 to 48 do
  163.     set the visible of sprite i = 0
  164.     puppetSprite i, 0
  165.   end repeat
  166.   
  167.   updateStage
  168.   
  169.   set the visible of sprite 1 = 1
  170.   set the visible of sprite 2 = 1
  171.   
  172.   if the movie = "BRIDGES.DIR" then
  173.     go to "Credits"
  174.   else
  175.     go to frame "Credits" of movie "BRIDGES.DIR"
  176.   end if
  177. end
  178.  
  179.  
  180.